home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / GUICtrlCreateTab.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  1.1 KB  |  40 lines
  1. #include <GUIConstants.au3>
  2.  
  3. GUICreate("My GUI Tab")  ; will create a dialog box that when displayed is centered
  4.  
  5. GUISetBkColor(0x00E0FFFF)
  6. GUISetFont(9, 300)
  7.  
  8. $tab=GUICtrlCreateTab (10,10, 200,100)
  9.  
  10. $tab0=GUICtrlCreateTabitem ("tab0")
  11. GUICtrlCreateLabel ("label0", 30,80,50,20)
  12. $tab0OK=GUICtrlCreateButton ("OK0", 20,50,50,20)
  13. $tab0input=GUICtrlCreateInput ("default", 80,50,70,20)
  14.  
  15. $tab1=GUICtrlCreateTabitem ( "tab----1")
  16. GUICtrlCreateLabel ("label1", 30,80,50,20)
  17. $tab1combo=GUICtrlCreateCombo ("", 20,50,60,120)
  18. GUICtrlSetData(-1,"Trids|CyberSlug|Larry|Jon|Tylo", "Jon") ; default Jon
  19. $tab1OK=GUICtrlCreateButton ("OK1", 80,50,50,20)
  20.  
  21. $tab2=GUICtrlCreateTabitem ("tab2")
  22. GUICtrlSetState(-1,$GUI_SHOW)    ; will be display first
  23. GUICtrlCreateLabel ("label2", 30,80,50,20)
  24. $tab2OK=GUICtrlCreateButton ("OK2", 140,50,50)
  25.  
  26. GUICtrlCreateTabitem ("")    ; end tabitem definition
  27.  
  28. GUICtrlCreateLabel ("label3", 20,130,50,20)
  29.  
  30. GUISetState ()
  31.  
  32. ; Run the GUI until the dialog is closed
  33. While 1
  34.     $msg = GUIGetMsg()
  35.     
  36.     If $msg = $GUI_EVENT_CLOSE Then ExitLoop
  37. Wend
  38.  
  39.  
  40.